home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / compar1r / frmabout.frm (.txt) < prev   
Encoding:
Visual Basic Form  |  1999-07-01  |  12.9 KB  |  474 lines
  1. VERSION 5.00
  2. Begin VB.Form frmAbout 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "About the Ascii Table"
  5.    ClientHeight    =   2595
  6.    ClientLeft      =   45
  7.    ClientTop       =   330
  8.    ClientWidth     =   4680
  9.    LinkTopic       =   "Form1"
  10.    MaxButton       =   0   'False
  11.    MinButton       =   0   'False
  12.    ScaleHeight     =   2595
  13.    ScaleWidth      =   4680
  14.    StartUpPosition =   3  'Windows Default
  15.    Begin VB.Timer Timer1 
  16.       Left            =   960
  17.       Top             =   1320
  18.    End
  19.    Begin VB.Label Label13 
  20.       Alignment       =   2  'Center
  21.       Caption         =   "v1.0"
  22.       Height          =   255
  23.       Left            =   120
  24.       TabIndex        =   12
  25.       Top             =   720
  26.       Width           =   4455
  27.    End
  28.    Begin VB.Label Label12 
  29.       Alignment       =   2  'Center
  30.       Caption         =   "Label12"
  31.       Height          =   1215
  32.       Left            =   120
  33.       TabIndex        =   11
  34.       Top             =   1200
  35.       Width           =   4455
  36.    End
  37.    Begin VB.Label Label11 
  38.       Alignment       =   2  'Center
  39.       Caption         =   "101"
  40.       Height          =   255
  41.       Left            =   4320
  42.       TabIndex        =   9
  43.       Top             =   240
  44.       Width           =   255
  45.    End
  46.    Begin VB.Label Label10 
  47.       Alignment       =   2  'Center
  48.       Caption         =   "108"
  49.       Height          =   255
  50.       Left            =   3960
  51.       TabIndex        =   8
  52.       Top             =   240
  53.       Width           =   255
  54.    End
  55.    Begin VB.Label Label9 
  56.       Alignment       =   2  'Center
  57.       Caption         =   " 98"
  58.       Height          =   255
  59.       Left            =   3600
  60.       TabIndex        =   7
  61.       Top             =   240
  62.       Width           =   255
  63.    End
  64.    Begin VB.Label Label8 
  65.       Alignment       =   2  'Center
  66.       Caption         =   "97"
  67.       Height          =   255
  68.       Left            =   3240
  69.       TabIndex        =   6
  70.       Top             =   240
  71.       Width           =   255
  72.    End
  73.    Begin VB.Label Label7 
  74.       Alignment       =   2  'Center
  75.       Caption         =   "84"
  76.       Height          =   255
  77.       Left            =   2880
  78.       TabIndex        =   5
  79.       Top             =   240
  80.       Width           =   255
  81.    End
  82.    Begin VB.Label Label6 
  83.       Alignment       =   2  'Center
  84.       Caption         =   "105"
  85.       Height          =   255
  86.       Left            =   1560
  87.       TabIndex        =   4
  88.       Top             =   240
  89.       Width           =   255
  90.    End
  91.    Begin VB.Label Label5 
  92.       Alignment       =   2  'Center
  93.       Caption         =   "105"
  94.       Height          =   255
  95.       Left            =   1200
  96.       TabIndex        =   3
  97.       Top             =   240
  98.       Width           =   255
  99.    End
  100.    Begin VB.Label Label4 
  101.       Alignment       =   2  'Center
  102.       Caption         =   "99"
  103.       Height          =   255
  104.       Left            =   840
  105.       TabIndex        =   2
  106.       Top             =   240
  107.       Width           =   255
  108.    End
  109.    Begin VB.Label Label3 
  110.       Alignment       =   2  'Center
  111.       Caption         =   "115"
  112.       Height          =   255
  113.       Left            =   480
  114.       TabIndex        =   1
  115.       Top             =   240
  116.       Width           =   255
  117.    End
  118.    Begin VB.Label Label2 
  119.       Alignment       =   2  'Center
  120.       Caption         =   "65"
  121.       ForeColor       =   &H00000000&
  122.       Height          =   255
  123.       Left            =   120
  124.       TabIndex        =   0
  125.       Top             =   240
  126.       Width           =   255
  127.    End
  128.    Begin VB.Label Label1 
  129.       Alignment       =   2  'Center
  130.       Caption         =   "Ascii Table"
  131.       BeginProperty Font 
  132.          Name            =   "Andale Mono"
  133.          Size            =   24
  134.          Charset         =   0
  135.          Weight          =   400
  136.          Underline       =   0   'False
  137.          Italic          =   0   'False
  138.          Strikethrough   =   0   'False
  139.       EndProperty
  140.       Height          =   615
  141.       Left            =   120
  142.       TabIndex        =   10
  143.       ToolTipText     =   "Click Me!"
  144.       Top             =   240
  145.       Width           =   4455
  146.    End
  147. Attribute VB_Name = "frmAbout"
  148. Attribute VB_GlobalNameSpace = False
  149. Attribute VB_Creatable = False
  150. Attribute VB_PredeclaredId = True
  151. Attribute VB_Exposed = False
  152. Option Explicit
  153. Dim temp As Byte
  154. Private Sub Form_Click()
  155.     Unload Me
  156. End Sub
  157. Private Sub Form_Load()
  158.     Label12.Caption = _
  159.     "This program was made by" & Chr(13) & _
  160.     "Jason Khanlar - jasonkhanlar2@geocities.com" & Chr(13) & _
  161.     Chr(13) & Chr(13) & "Made on July 1st, 1999"
  162.     Timer1.Interval = 500
  163.     temp = 1
  164.     Label2.Visible = False
  165.     Label3.Visible = False
  166.     Label4.Visible = False
  167.     Label5.Visible = False
  168.     Label6.Visible = False
  169.     Label7.Visible = False
  170.     Label8.Visible = False
  171.     Label9.Visible = False
  172.     Label10.Visible = False
  173.     Label11.Visible = False
  174. End Sub
  175. Private Sub Label1_Click()
  176.     Me.Caption = "Can you find the hidden game?"
  177.     Label1.Visible = False
  178.     Label2.Visible = True
  179.     Label3.Visible = True
  180.     Label4.Visible = True
  181.     Label5.Visible = True
  182.     Label6.Visible = True
  183.     Label7.Visible = True
  184.     Label8.Visible = True
  185.     Label9.Visible = True
  186.     Label10.Visible = True
  187.     Label11.Visible = True
  188.     Timer1.Enabled = True
  189. End Sub
  190. Private Sub Label10_Click()
  191.     game
  192. End Sub
  193. Private Sub Label11_Click()
  194.     game
  195. End Sub
  196. Private Sub Label12_Click()
  197.     Unload Me
  198. End Sub
  199. Private Sub Label13_Click()
  200.     Unload Me
  201. End Sub
  202. Private Sub Label2_Click()
  203.     game
  204. End Sub
  205. Private Sub Label3_Click()
  206.     game
  207. End Sub
  208. Private Sub Label4_Click()
  209.     game
  210. End Sub
  211. Private Sub Label5_Click()
  212.     game
  213. End Sub
  214. Private Sub Label6_Click()
  215.     game
  216. End Sub
  217. Private Sub Label7_Click()
  218.     game
  219. End Sub
  220. Private Sub Label8_Click()
  221.     game
  222. End Sub
  223. Private Sub Label9_Click()
  224.     game
  225. End Sub
  226. Private Sub Timer1_Timer()
  227.     If temp = 1 Then
  228.         Label2.ForeColor = &HFF0000
  229.         temp = 2
  230.     ElseIf temp = 2 Then
  231.         Label2.ForeColor = &H0&
  232.         Label3.ForeColor = &HFF0000
  233.         temp = 3
  234.     ElseIf temp = 3 Then
  235.         Label3.ForeColor = &H0&
  236.         Label4.ForeColor = &HFF0000
  237.         temp = 4
  238.     ElseIf temp = 4 Then
  239.         Label4.ForeColor = &H0&
  240.         Label5.ForeColor = &HFF0000
  241.         temp = 5
  242.     ElseIf temp = 5 Then
  243.         Label5.ForeColor = &H0&
  244.         Label6.ForeColor = &HFF0000
  245.         temp = 6
  246.     ElseIf temp = 6 Then
  247.         Label6.ForeColor = &H0&
  248.         Label7.ForeColor = &HFF0000
  249.         temp = 7
  250.     ElseIf temp = 7 Then
  251.         Label7.ForeColor = &H0&
  252.         Label8.ForeColor = &HFF0000
  253.         temp = 8
  254.     ElseIf temp = 8 Then
  255.         Label8.ForeColor = &H0&
  256.         Label9.ForeColor = &HFF0000
  257.         temp = 9
  258.     ElseIf temp = 9 Then
  259.         Label9.ForeColor = &H0&
  260.         Label10.ForeColor = &HFF0000
  261.         temp = 10
  262.     ElseIf temp = 10 Then
  263.         Label10.ForeColor = &H0&
  264.         Label11.ForeColor = &HFF0000
  265.         temp = 11
  266.     ElseIf temp = 11 Then
  267.         Label11.ForeColor = &H0&
  268.         Label2.Caption = "A"
  269.         temp = 12
  270.     ElseIf temp = 12 Then
  271.         Label2.Caption = 65
  272.         Label3.Caption = "s"
  273.         temp = 13
  274.     ElseIf temp = 13 Then
  275.         Label3.Caption = 115
  276.         Label4.Caption = "c"
  277.         temp = 14
  278.     ElseIf temp = 14 Then
  279.         Label4.Caption = 99
  280.         Label5.Caption = "i"
  281.         temp = 15
  282.     ElseIf temp = 15 Then
  283.         Label5.Caption = 105
  284.         Label6.Caption = "i"
  285.         temp = 16
  286.     ElseIf temp = 16 Then
  287.         Label6.Caption = 105
  288.         Label7.Caption = "T"
  289.         temp = 17
  290.     ElseIf temp = 17 Then
  291.         Label7.Caption = 84
  292.         Label8.Caption = "a"
  293.         temp = 18
  294.     ElseIf temp = 18 Then
  295.         Label8.Caption = 97
  296.         Label9.Caption = "b"
  297.         temp = 19
  298.     ElseIf temp = 19 Then
  299.         Label9.Caption = 98
  300.         Label10.Caption = "l"
  301.         temp = 20
  302.     ElseIf temp = 20 Then
  303.         Label10.Caption = 108
  304.         Label11.Caption = "e"
  305.         temp = 21
  306.     ElseIf temp = 21 Then
  307.         Label11.Caption = 101
  308.         temp = 22
  309.     ElseIf temp = 22 Then
  310.         Label2.Caption = "A"
  311.         Label3.Caption = "s"
  312.         Label4.Caption = "c"
  313.         Label5.Caption = "i"
  314.         Label6.Caption = "i"
  315.         Label7.Caption = "T"
  316.         Label8.Caption = "a"
  317.         Label9.Caption = "b"
  318.         Label10.Caption = "l"
  319.         Label11.Caption = "e"
  320.         temp = 23
  321.     ElseIf temp = 23 Then
  322.         Label2.Caption = 65
  323.         Label3.Caption = 115
  324.         Label4.Caption = 99
  325.         Label5.Caption = 105
  326.         Label6.Caption = 105
  327.         Label7.Caption = 84
  328.         Label8.Caption = 97
  329.         Label9.Caption = 98
  330.         Label10.Caption = 108
  331.         Label11.Caption = 101
  332.         temp = 24
  333.     ElseIf temp = 24 Then
  334.         Label2.Caption = "A"
  335.         Label3.Caption = "s"
  336.         Label4.Caption = "c"
  337.         Label5.Caption = "i"
  338.         Label6.Caption = "i"
  339.         Label7.Caption = "T"
  340.         Label8.Caption = "a"
  341.         Label9.Caption = "b"
  342.         Label10.Caption = "l"
  343.         Label11.Caption = "e"
  344.         temp = 25
  345.     ElseIf temp = 25 Then
  346.         Label2.Caption = 65
  347.         Label3.Caption = 115
  348.         Label4.Caption = 99
  349.         Label5.Caption = 105
  350.         Label6.Caption = 105
  351.         Label7.Caption = 84
  352.         Label8.Caption = 97
  353.         Label9.Caption = 98
  354.         Label10.Caption = 108
  355.         Label11.Caption = 101
  356.         temp = 26
  357.     ElseIf temp = 26 Then
  358.         Label2.Caption = "A"
  359.         Label3.Caption = "s"
  360.         Label4.Caption = "c"
  361.         Label5.Caption = "i"
  362.         Label6.Caption = "i"
  363.         Label7.Caption = "T"
  364.         Label8.Caption = "a"
  365.         Label9.Caption = "b"
  366.         Label10.Caption = "l"
  367.         Label11.Caption = "e"
  368.         temp = 27
  369.     ElseIf temp = 27 Then
  370.         Label2.Caption = 65
  371.         Label3.Caption = 115
  372.         Label4.Caption = 99
  373.         Label5.Caption = 105
  374.         Label6.Caption = 105
  375.         Label7.Caption = 84
  376.         Label8.Caption = 97
  377.         Label9.Caption = 98
  378.         Label10.Caption = 108
  379.         Label11.Caption = 101
  380.         temp = 28
  381.     ElseIf temp = 28 Then
  382.         Label2.Caption = "A"
  383.         Label3.Caption = "s"
  384.         Label4.Caption = "c"
  385.         Label5.Caption = "i"
  386.         Label6.Caption = "i"
  387.         Label7.Caption = "T"
  388.         Label8.Caption = "a"
  389.         Label9.Caption = "b"
  390.         Label10.Caption = "l"
  391.         Label11.Caption = "e"
  392.         temp = 29
  393.     ElseIf temp = 29 Then
  394.         Label2.Caption = 65
  395.         Label3.Caption = 115
  396.         Label4.Caption = 99
  397.         Label5.Caption = 105
  398.         Label6.Caption = 105
  399.         Label7.Caption = 84
  400.         Label8.Caption = 97
  401.         Label9.Caption = 98
  402.         Label10.Caption = 108
  403.         Label11.Caption = 101
  404.         temp = 30
  405.     ElseIf temp = 30 Then
  406.         Label2.Caption = "A"
  407.         Label3.Caption = "s"
  408.         Label4.Caption = "c"
  409.         Label5.Caption = "i"
  410.         Label6.Caption = "i"
  411.         Label7.Caption = "T"
  412.         Label8.Caption = "a"
  413.         Label9.Caption = "b"
  414.         Label10.Caption = "l"
  415.         Label11.Caption = "e"
  416.         temp = 31
  417.     ElseIf temp = 31 Then
  418.         Label2.Caption = 65
  419.         Label3.Caption = 115
  420.         Label4.Caption = 99
  421.         Label5.Caption = 105
  422.         Label6.Caption = 105
  423.         Label7.Caption = 84
  424.         Label8.Caption = 97
  425.         Label9.Caption = 98
  426.         Label10.Caption = 108
  427.         Label11.Caption = 101
  428.         temp = 32
  429.     ElseIf temp = 32 Then
  430.         Label2.Caption = "A"
  431.         Label3.Caption = "s"
  432.         Label4.Caption = "c"
  433.         Label5.Caption = "i"
  434.         Label6.Caption = "i"
  435.         Label7.Caption = "T"
  436.         Label8.Caption = "a"
  437.         Label9.Caption = "b"
  438.         Label10.Caption = "l"
  439.         Label11.Caption = "e"
  440.         temp = 33
  441.     ElseIf temp = 33 Then
  442.         Label2.Caption = 65
  443.         Label3.Caption = 115
  444.         Label4.Caption = 99
  445.         Label5.Caption = 105
  446.         Label6.Caption = 105
  447.         Label7.Caption = 84
  448.         Label8.Caption = 97
  449.         Label9.Caption = 98
  450.         Label10.Caption = 108
  451.         Label11.Caption = 101
  452.         temp = 34
  453.     ElseIf temp = 34 Then
  454.         Label2.Visible = False
  455.         Label3.Visible = False
  456.         Label4.Visible = False
  457.         Label5.Visible = False
  458.         Label6.Visible = False
  459.         Label7.Visible = False
  460.         Label8.Visible = False
  461.         Label9.Visible = False
  462.         Label10.Visible = False
  463.         Label11.Visible = False
  464.         Label1.Visible = True
  465.         Timer1.Enabled = False
  466.         Me.Caption = "About the Ascii Table"
  467.         temp = 1
  468.     End If
  469. End Sub
  470. Sub game()
  471.     MsgBox ("Click on File, then Game to play the Ascii Game")
  472.     AsciiTable.mnuGame.Visible = True
  473. End Sub
  474.